USES crt;
VAR
 n,c,i:integer;
BEGIN
 for i:=1 to 9999 do delay(100);
END. 
